home *** CD-ROM | disk | FTP | other *** search
/ Top 200 Programs / Top 200 Programs.iso / Bob8 / THOMPSON / LIBERTY / PRODUCT / LB14W.EXE / ASCII.BAS next >
BASIC Source File  |  1992-03-02  |  332b  |  16 lines
  1.  
  2.  
  3.     ' This program ask for a string and then
  4.     ' displays a list of ASCII codes for each
  5.     ' character in the entered string
  6.  
  7.     input "Please enter a string >"; entry$
  8.  
  9.     for index = 1 to len(entry$)
  10.  
  11.         result$ = result$ + str$(asc(mid$(entry$,index,1))) + chr$(13)
  12.  
  13.     next index
  14.  
  15.     print result$
  16.